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You wili have to read slowly this month, only 12 pages of your favourite 
newsletter, Murphy's Law again. It was a combination of Ian being sick, the 
typewriter playi.g up anda long weekend. Anyone who has an IBM typewriter 
will know of the trouble that can be caused by the rotate band. Hopefully, 
things will be back to normal next month, 


The Meeting Was KAOS has’ been omitted because of space, as not a lot 
happened at the last meeting, except Ray Gardiner's talk about America, 
(perhaps we will be able to get him to do an article about his trip for the 
next newsletter?). There was one item we think should be mentioned, Andrew 
Stephanou has heard from a few BBC owners and he is in contact with two 
interstate user groups, so he is hoping to have more to report soon. 


We have been offered space in the user group section at the 3rd 
Australian Personal Computer Show which we have accepted. This show runs 
from 18-21 July 1984 and we are looking for volunteers to help man the stand, 
one of the obligations of accepting this offer is that the stand must be 
manned while the show is open (9am-7pm), so if you can help please contact 
us. We shall also be getting reduced price admission tickets for the show 
which will allow our members to visit the show for $3 instead of $4, Please 
let us know if you are interested, 


The next meeting will be at 2pm on Sunday 24th June at the Essendon 
Primary School which is on the corner of Raleigh and Nicholson Streets, 
Essendon, Would the usual early arrivers please note that the children will 
be there at 10am. The school will be open for our normal meeting at Ipm. 


The closing date for items for the next issue is 13th July. 
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WHAT YOU ALWAYS WANTED TO KNOW ABOUT THE COMPSOFT CP/M SYSTEM AND GOT AROUND 
TO ASKING 
by Michael Lemaire 


We've had a few queries regarding our Rabble/Ohio CP/M system, kindly 
relayed to us by Rosemary and Ian, and so here unfolds a glimmer of light 
upon various mysterious magickes, 


Q. Is the system like a Big Board, only using the Rabble/Ohio as a terminal? 


A. No. Since the Rabble and Ohio have circuitry for screen, keyboard, 
printer, and serial I/0, it seemed a waste of board space, component and 
money to provide these features on the Z80 card, The card has enough 


circuitry to communicate with the host computer, ie, the Rabble or Ohio, and 
the host controls all I/O devices, including the FDC card. This means (a) 
the Z80 BIOS is pretty small, leaving more usable memory, and (b) we can do 
some fancy things at the host computer end, like printer spooling and disk 
cache, 


Q. Is there provision for a serial or parallel printer interface on the CP/M 
card? 

A. No, because the necessary hardware was already available on the host 
machine, 


Q. Would the board work with a terminal? 
A. No, because the CP/M system was designed to work under a host computer. 
Of course, you could always connect a terminal to the host, 


Q. How are Ohio users supposed to use programs such as WordStar without 80 
columns? 

A. The Ohio system manages an 80 by 24 VIRTUAL screen, of which 64 columns 
can be shown at any one time. The user can display either the left three- 
quarters of the screen (columns 0 to 63), or the right three-quarters (16 to 
79). The screen can either be manually switched CONTROL —-< for the left 
window, and CONTROL -> for the right window), or the user can set the console 
to switch automatically. 

(NB. WordStar can be configured for 64 column screens if you really want 
to.) 


Q. Is there provision for a serial interface for inter-computer CP/M 
transfers? 

A. The host machine has a serial interface, and can be used under CP/M as the 
PUN (output) and RDR (input) devices, as usual. 


Q. Why are the CP/M and FDC boards only available fully built? 

A. Because if we build them, they will work, and we won't have to waste our 
time fixing other peoples problems. I've lost count of the number of Tasan 
Video boards, Rabble expansion boards and Rabble 65 boards that we've had to 
look at. 


Q. Wouldn't it be easier and cheaper to pull out the 6502 and plug in a Z80 
on my Ohio? 

A. Cheaper, most certainly. Easier, certainly not, Firstly, you won't be 
able to run much CP/M stuff on a 48K system (you can forget about dBase II, 
WordStar and most compilers), so you'll need to add 16K RAM to get a 64K 
system. That means that all the I/O will have to be bank-selected, You'll 


need to write your own BIOS to suit the system - not hard, but it's involved. 
The biggest problem will be getting software on Ohio's disk format, which is 


somewhat unique and unpopular. You'll need a friend with a standard disk 
CP/M computer and communications software. 


Q. I'd ike to put CP/M on my Ohio, but how can I get the Full ASCII character 
set for eg, £3} in Pascal and C? | 

A. The Ohio system software supplied with the CP/M cards provides a full 
ASCII keyboard driver, with proper CAPS LOCK operation, Every printable 
ASCII character is directly available from the keyboard, 


If you have any queries concerning the Compsoft CP/M system, we can be 
contacted at Compsoft, 235 Swan St, Richmond, 3121, ph 03 429 9686, or 
through KAOS. 


KAOS - W.A. 


Our last meeting was well attended with 13 people present. We also had 
two new members, It seems that many of our so called "ORPHAN" computers are 
gaining "new parents" who need the back-up and support provided by an active 
users group. 


As usual, a lot of discussion and sharing of ideas took place. 


The next meeting is on Sunday July 21st at 2pm back at our usual meeting 
place. Guild House (top floor), 56 Kishorn Rd, Mt Pleasant. 
Gerry Ligtermoet, a 


FOR SALE 


Tasker Bus RAM board, 24K CMOS uses 12 of Hitachi HM6116P-3, Assembled and 
tested, $70.00 

MPI B51 Disk Drive and Tasker Bus controller board. $180.00 

Contact Frank Brown 


I.C.L. Termiprinter. Daisy belt type, operates at 110, 300 or 600 band, 
Accepts RS-232 signals ex C1P. Prints up to 118 chrs wide on standard’ 11" x 
12 7/8"" pin feed paper at 10 chrs per inch. Standard ASCII chrs. Complete 
with handbook. $200.00 
Roger Haigh, 7 
Cl1P Series II complete with fully populated Rabbleboard. Screen enhancement 

Board gives 20 screen formats. ROMs include Cegmon, Toolkit, Exmon. 
Extensions to BASIC have been merged with the language, Has been running 
with 5,25" disk, Centronics printer port and cable, and disk:cable included, 
but no drive. Includes Hexdos, 65D, and assorted software, plus full 
documentation, $450.00 

Paul Brodie, 


Soperboard 


©June, 1984. 
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FASTSEARCH 


Ever written things sequentially in a notebook, and then had to laboriously 
search through the pages, unsure if the item you want is even there? 


In my constant quest for supremacy over the bookmakers, I kept such a book. I 
decided to use the computer to store my notes - a memory that never forgets, 
and a much faster reader than me! 


The type of information I wanted was current, no more than two months old. 
Older data than this could be deleted each week, the lines renumbered, and 

new data added. Every Friday night I would type in the names of over a 

hundred horses, and use the program to find any information that I had noted 
about them in the preceding eight weeks. Such a program is not really suited 
to disk operation because of the time delay in a search, plus the considerable 
wear and tear on disks during the hundred odd separate searches. The length of 
the program varies around the 20k mark. 


The Basic program I used to search was as fast as I could get it, but the 
delay was still annoying. The solution is the M/C routine which follows. The 
results are as you would expect. Information retrieval is virtually instant. 
The routine will print anything following the search string to the end of the 
line. A Basic line can contain the string in a DATA or REM statement, or even 
just the string itself so long as none of Basic's reserved words or symbols 
are used. The actual search string is not printed unless it appears again 
within the line. 


Basic Driver Routine: 


10 POKE 11,53:POKE 12,2:REM FASTSEARCH 
20 INPUT"Name of subject';A$:X=USR(X):PRINT:GOTO 20 


Fastsearch M/C: 


0235 A9 03 LDA #$03 Set up program start address each 
0237 AO 00 LDY #S00 time routine ts called. End of 

0239 85 59 STA $59 tnput buffer ts used as storage. 

023B 84 58 STY $58 

023D 20 6C A8 CRLF JSR S$A86C Do a earrtage return/line feed. Note 
0240 A2 00 START  LDX #$00 no effect on register contents. 

0242 20 68 02 NEXT JSR MEMINC Search address is tn $0058, 59 

0245 A5 58 LDA $58 Check for end of Baste program 

0247 C5 7B CMP $7B storage, first lo byte, then hi byte. 
0249 DO 06 BNE KEEPGO 

024B A5 59 LDA $59 

024D C5 7C CMP $7C 

O24F BO 1D- BCS RETURN Jf end, return to Basic. 

0251 B5 13 KEEPGO LDA $13,X Get character from tnput buffer. 

0253 FO 07 BEQ PRINT If zero, we have a matched string. 
0255 Dl 58 CMP ($58),Y Compare wtth memory character 

0257 DO E7 BNE START No match, reset & keep looking. 

0259 E8 INX 

025A DO E6 BNE NEXT Check next character (branch always.) 


025C Bl 58 PRINT LDA ($58),Y Get a character from memory. 
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O25E FO D BEQ CRLF If zero, end of Basic ltne. 

0260 20 68 02 JSR MEMINC Get ready for another character. 
0263 20 EE FF JSR SFFEE Print character. 

0266 DO F4 | BNE PRINT Branch always. 

0268 E6 58 MEMINC INC $58 Lo byte. 

026A DO 02 BNE RETURN 

026C E6 59 INC $59 Ht byte. 

O26E 60 RETURN RTS 


The routine should work on any Basic-in-Rom OSI. For 65D users, input buffer 
is from S001B to $0062. End of program address is in $007A,7B. Location for 
Storage will have to be end of memory. Pointer is at 8960 decimal. USR vectors 
at 8955 ,8956, decimal.(lo,hi bytes).I am not sure where the CRLF routine or 
screen driver lives? It would be easy to incorporate a CRLF routine in the 

M/C program. 


A BBC REPORT by Robin Weeks. 


After four years of owning an OSI, building it up from a 600 board to a twin 
disk system with all the Roms and software available, I decided to update to 
something more modern. Like David Anear, I looked at what was available, 
rejecting the overpriced and non-graphics machines running CP/M. I considered 
the Commodore 64 and Apple clones, but these machines do not offer much of an 
advance on OSI. Though good graphics can be obtained from both, the antique 
versions of Basic make the programming unnecessarily difficult. 


When I had to make a trip to the UK recently, I came away with a BBC/B model 
with disk interface. The total bill was just under A$600. Acorn has opened 

a factory in Hong Kong to supply the Asian market, and I would expect this 
to have the effect of reducing the prices. 


The BBC runs a 6502A at 2 MHz. The A model supports 16k of Ram, and has four 
display modes. Upgrading to a B model gives 32k Ram, and eight display modes. 


640 x 256 2 colour graphics 80 x 32 


320 x 256 4 " 40 x 32 

160 x 256 16 mt . 20 x 32 

vf 1 2 Ww Al 80 xX 25 

320 x 256 2 " " 40 x 32 * 

160 x 256 4 " . 20 x 32 * k=Model A 
40 x 25 2 Colour Text * 

40 x 25 Teletext Display % 


Both models have the same Rom capability. Five sockets are provided inside, 
two being for the Basic interpreter and the machine operating system, and in 
the case of the Model B, a third socket is occupied by the disk system. Many 
Rom expansion boards are on the market to cater for the large number of Roms 
that have become available to fill those two sockets. All up, the BBC can 
have resident up to 256k of Rom. Acorn engineers have come up with an 
ingenious method whereby utility Roms can be called up by either their full 
or a shortened name, and the BBC finds the appropriate Rom, and places it in 
the memory map. Magazines like Micro User carry advertisements to encourage 
‘you to attempt to fill up that huge addressable memory space. 


Fitting the ex-OSI drives (MPI B51) proved to be easy. I simply removed the 
data separators and connected them to the disk ribbon cable socket under the 
machine. There are four other such sockets, wired for Printer, User I/O port, 
1 MHz BUS, and the TUBE (for connecting a second processor). 


At the back of the BBC are connectors for UHF Output, Composite Video, R-G-B 
Video, RS423, Cassette storage, Analogue input (Joysticks or control uses), 
and Econet. 5 
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Econet is designed for education use in a classroom situation, and enables 

the machine to be networked easily to up to 254 other BBCs. The BEC also 

boasts a three channel sound generator with separate envelope control, complete 
with internal amplifier and speaker. It is capable of spectacular sound effects. 


In a future article, I'll go into the BBC in more depth. If other BBC users 
would like to contact me, the address is 


MORE ON NOS BASICODE 


KAOS 4/6 contained a program for the OSI to provide the NOS BASICODE format on 
tape. To use the program, enter it using the M/C monitor at .1E00 G. 

Some housekeeping is done to set up the USR vectors, and to protect the code 
from being overwritten by Basic programs and strings, before exiting to a 
warmstart. To use the program, you call it with X=USR(X). 


The program prompts you with S/L/R ? S and L are SAVE and LOAD. You can hit 
L anytime as the program ignores noise and rubbish on the tape. The program 
starts saving immediately you hit S, so start the tape beforehand. The R 
‘command simply removes the BASICODE translation program by resetting the top 
of memory pointers. The BASICODE program can be relocated to higher memory 
using EXMONs Relocate function, and entering some further changes manually. 


BASICODE Specifications: 


Two tones are used to record the data onto cassette tape, with frequencies 
of 1200 and 2400 Hz. A @ is defined as one full cycle of 1200 Hz, and a 1 is 
two full cycles of 2400 Hz. The Baud rate is 1200 Baud. A byte on tape is 
represented by 1 start bit (9),8 data bits(LSB first), and two stop bits(]1). 


The Basic program is coded either in the form in which it has been typed in, 

or as it is displayed when the LIST command is given. All letters are presented 
in ASCII. Each Basic Instruction should. be followed by a space. Each Basic line 
is closed with a carriage return. All ASCIIs receive a closing bit = l. 


The tone sequence on the tape is: ASCII start text($82), Basic information in 
ASCII, ASCII end of text ($83), Checksum. 


The checksum is the result of the bit indication exclusive-or from all previous 
bytes. The checksum is an 8 bit term, and in this case, the 8th bit can be a @. 
The checksum is intended to allow the user to check whether the program has 
been read without errors. The program has been loaded, however, errors or not. 


BASICODE Protocol: 


The use of BASICODE requires more rules than may be apparent at first glance. 
Not only do we wish to transfer a listing of a program from a computer type A 
to a computer type B, but ideally it should also be possible to execute the 
program on both computers. This will not be possible in all instances, so the 
program should be written so that it is easy to understand and hence modify. 


The OSI Basic is a standard 8k Microsoft Basic. The commands to avoid are 
PEEK, POKE, DEF FN, and USR. 


Computer screens, rows and columns, vary enormously. This is not so terribly 
important, but the number of ciphers per line is very important. The number 
of characters in the program line should not exceed 60 characters including 
the line number, and preferably only one statement per line number. 


To be continued. .. 


Next Month, we conclude the BASICODE article. Some changes for the CEGMON 
monitor. Adventuring part 2. 
6 Ed Richardson. 


APPLE DISK SYSTEM 
by David Anear 


In June 1978 when Apple released its first disk systems using 5.25 disk 
drives, there were no _ standards prevailing at the time. OHIO had an 8" 
system on the market and firms like SWIP had no disk systems as yet. Most 
disk controllers were TTL based and cost more than the hobbyist could afford. 
Apple's disk system was like Ohio's - cheap and reliable, but unlike Ohio it 
was designed for a 5.25" low cost mechanism, Ohio later released its 5.25" 
system, which was a patched 8" DOS running on a MPI drive. 


The Apple system used the slow but reliable Shugart mechanism, The 
mechanism has no index led, and no track zero swith and only consists of the 
disk drive motor,write protect switch and a read/write head with its stepper 


motor. The normal electronics board was replaced by a very simple analog 
board containing a set of buffers, a transistor array and a op-amp package 
for reading from the head, The electronics board does not even have any 


logic to drive the stepper motor, but relies on the Apple itself to do this 
chore, 


‘By comparison the Ohio disk drives are a standard off the shelf MPT. unit 


using index, track zero leds and a high speed head positioner with an 
electronics board using 20+ ICs. 


Most computers nowadays use a sophisticated disk controller based around 
one of the Western Digital controller chips and use IBM type formatting. 
Neither Apple or Ohio used these chips as they were not available till well 
after their disk systems were released, and they are expensive. Ohio used a 
PIA to control the disk, and a ACIA to read/write the data and a few house 
keeping chips to do the encoding as well as a 125 kes clock. The boot strap 
loading program is in the system monitor, 


Apple's controller consists of a pair of fuse link proms holding the 
boot program, a data latch and a timer chip to switch on the drive motor. 
It's even simpler than the Ohio controller. The big difference between Apple 
disks and anyone elses is the way the data is packed onto the disk. Ohio 
disks are not easily read by a IBM type machine due to the use of a ACIA to 
convert the data, which adds extra stop bits to the stream. Apple disks use 
no start/stop bits and have an unusual encoding system as well as seif 
syncing bytes (no index led remember) to locate start of track/sectors. 


This non use of the index hole means you can flip a normal single sided 
disk over and use the other side if you punch a new write protect notch. The 
upshot of all this is that an Apple single sided disk holds as much data as a 
double density IBM formatted disk or about twice a comparable Ohio disk. 

Here is a table to compare Ohio and Apple disk formatting:- 


* OHIO 65D 3.2 * APPLE 3.3 DOS * 


TRACKS * 40 — “ 35 * 
SECTORS PER TRACK * 8 * 16 * 
SECTORS PER DISKETTE * 320 * 560 * 
BYTES PER SECTOR * 256 * 256 * 
BYTES PER DISKETTE * 81,920 * 143,360 * 
OVERHEADS (DOS, DIR ETC) * 14,080 * 15,360 * 
USABLE BYTES PER DISK * 67,840 * 128,000 * 
SMALLEST USABLE AREA (M.CODE) * 1 sec * 1 sec * 
SMALLEST USABLE AREA (BASIC) * 8 sec * 1 sec * 
MAX NUMBER FILES IN DIR * 40 * 105 * 
TIME TO LOAD 20K BASIC PROG * 4-5 sec * 19 sec * 


~J 


As you can. see from the table Apple DOS is slower than Ohio's but with 
the new fast DOS systems available for the Apple, the times are very close, 


A final note:- Apple's new Mackintosh computer uses the same type of 
controller as the Apple 1{£ but it has been put onto a single chip and with 
the Sony 3.50" drive has a storage capacity of 400 kbytes; compare this to 
the IBM personal computer which stores 145 kbytes and has more chips in its 
floppy disk controller than the complete Apple Mackintosh!! 

Next month - Apple Graphics 


PRINTER PLOTTER 
by Gerard Campbell 


If you have an 8K Superboard and a whatever-80 printer or similar then 
you can obtain a hardcopy of a ‘virtual’ or invisible screen created above 
BASIC workspace, This '‘screen's' size is limited only by available memory 
and page size. In this instance I chose a resolution of 160 horizontal X 96 
vertical dots requiring 1920 bytes (bit mapped-8 horz'l bits = one memory 
byte), starting at $1800 (6144). 


Listing 1 does the following:- 
1, Line 10 sets BASIC workspace top to $1800. Line 220 clears the virtual 
screen, 
2. Subroutine 100 plots a point. = PLOT X,Y 
3. Subroutine 3000 draws a line from X1,Y1 to X1,X2. = DRAW X1,Y1 TO X2,yY2 
4, Subroutine 4000 is a bit image graphics dump of the virtual screen. 
Lines 4005 and 4020 set up the printer. (A CP-80) 

5, Subroutine 5000 produces a large plot using condensed, 

half character blocks, Line 5005 sets up printer. 


Listings 2-7 are calculatory programs used with listing 1 to produce the 
plots shown, Plots are printed with the Y-axis across the page with the last 
column printed first. All examples take a few minutes to plot but don't go 
to sleep!! 


This program should be easy to modify to work on any computer with some 
Spare memory and. a whatever-80 printer including the RABBLE 65. 


4 3270 NU=SGN(Y (@+1)-Y (@)) 2 x= (QQ) 
neo 3230 FOR K=Y(@)+NU TO Y(@+1)-NU STEP NU 
240 Y=K:GOSUB 100 PLOT X,Y !NEXTK 

10 POKE 133,00:POKE 134, 24:GOTO200 See CHEST a TRE TURK , 

20 : 3260 : 

90 REM eaes -PLOT x, 7 Subroutine 3990 REM wees e BIT IMAGE PLOT 

100 IF xX<O OR X>159 THEN RETURN 4000 WP=ST+19:WM=WP:POKE 15,120 

102 IF Y<O OR Y>95 HEM aaa case 4001 SAVE 

105 XBzeINT(X/8) :RM=#=xX-XBKS: = + + 4005 PRINT CHRS(27) "A": CHRS(7) 

110 CV=PEEK (PB)! VO=2“°RM:POKE PB,(CV OR VO) 4010 FOR T#1 TO 20 ; ; j 

ioe RETURN 4020 PRINT CHRS(27) 3 "K" 3 CHR® (96) 1 CHRB®(O) 3 

: 4030 FOR N=1 TO 96:CV=PEEK (WP) 
200 VS21920:ST#6144: DIM X¥(160),¥¢(160) 4065 IF CV#ei3 OR CV2#=127 THEN CV=CV-l 
ae I=O TO VS:POKE ST+I,0:NEXTI 4080 PRINT CHRS(CV)3 !:WP=WP+20:NEXT N 
: 4090 WP=WM-1:WM=WM-1!:PRINT!NEXTT 

300 REM ....INSERT CALCULATION PROGRAM HERE 4150 POKE 15,72!:RETURN 

310 REM ....SEE EXAMPLES ELESWHERE 4200 ° 

320 : 4990 REM ....COMPRESSED BLOCK CHARACTER PLOT 
2800 END 5000 WP=ST+19:WM=WP:POKE 15,120 

3000 REM ese 8 eo @ @ 28 » DRAW xi 3vl1 TO x2, Y2 5sa01 SAVE 

3010 NB=ABS (X2-X1) 5: SB=SGN(X2-X1) 5005 PRINT CHRS$(27)3"A"3CHRS(4) S$CHRS(1L3) § 
3020 IF NB>1 THEN 3030 5010 FOR T=1TOZ20:FOR S=?7 TO O STEP -1 
3023 K(O)BeKLIEY CO) PYLEX CL) X25: YC1L) 2#Y¥2:NB=1 S020 FOR N=1TO96: CV=PEEK (WP) 2 AVZINT(2°S) 
3026 GOTO 3200 5025 J=CV AND AV 

BOBO MX=(Y2-Y1)/(X2-X1) | 5030 IF J=O THEN PRINT " °3 

3040 FOR @=0 TO NB:X(Q) =X1+Q*#SB 5040 IF J=AV THEN PRINT CHR®(4)3 

3045 Y(G)=VYI+ INT (Q*MX) ¥SB 5050 WP=WP+20: NEXT N!WP=WM: PRINT? NEXTS 
3OSO K=X(Q):Y=7(@) ! GOSUBLOO! NEXT@ 5060 WP=WM-1:WM=WM-1:NEXTT 

3200 FOR @=0 TO NB-1 S070 POKE 15,72:RETURN 

3210 IF ABS(Y(@+1)-¥(Q))<2 THEN 3250 OK 
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REM ....2.2..Listing 2. 

KX1=80: Y1=40 

FOR AN=0O TO 3640 STEP 10 

X2=SO0+ INT (4OX#SIN(ANKO.O175) ) 
Y2=40+ INT (40#COS (AN¥O.0175)) 
GOSUB 3000 :NEXT AN :GOSUB 4000 
END 


REM ......Listing 3. 

FOR D=0 TO 8 

FOR AN=0 TO 360 

X=INT ((45- (D¥S5) D¥SIN(ANKO.O175) ) 
Y=INT ((45- (D¥5S) )¥COS (AN¥0.0175) ) 
X3X+80: Y2V+45 

on L100: NEXTAN: NEXTD: GOSUB4000 


REM ........Listing &. 

Ex40: XL=E+90: Y1=45 

FOR AN=O TO 8000 STEP 235 
X2=INT (9OtCEX#COS (ANHO.O175) ) 
Y2=INT (45+EXSIN(ANKO.O175) ) 
GOSUB3000 
XL=X2!:Y1=Y2!:NEXTAN: GOSUB4000 
END 


REM .......Listing 5. 
UL=64:U2=UL*UL!V1L=48:V2=V1 

FOR T=O TO UL: U4=T¥T!: A=SAR(U2-U4) 
FOR I=-A TO A STEP 6 
R=(SQR(U4+I*#I)) /64 
F=(R-1)¥COS(1S#R) £ Y=I/3+F#V2 

IF I=-A THEN M=Y:ML=Y!:Y=V1+Y:GOTO 400 
IF Y<=M THEN 430 

M=Y:Y=V1L+Y 

K=INT(UL-T+10) !Y=INT(Y) :GOSUBLOO 
XS INT (U1+T+10) :Y=INT(Y) :GOSUB1OO 
NEXT I: NEXT T 

GOSUB 4000 :! END 

IF YM THEN 420 

MizY:Y=Vi+Y:GOTO 400 


REM .......eListing 6. 
PI=3.142°P2=2kPI:E=P2/180:N1=5:N2=4 
XC=80: YC=48: XM=160/180: YM=90/180 
LE=3:FOR D#i TO 10 

ML=N1#D:2M2=N2*D 

FOR AN#O TO P2 STEP E: A2#AN 

SN=ABS (SIN (ANELE) ) :RASSNEM1+M2 
X=COS (A) ¥RA: Y2SIN(A) RA 

X2E INT (XHXM+XC) 2 Y2R9OS5-INT (CYHYM+YC) 


IF AN#O THEN X1#INT(X2) 2: YL2INT(Y2) :GOTOQ400 


X2= INT (X2) 5 Y2eINT (Y2) : GOSUB3O00 
Xi#x2:YizsyvY2 

NEXT AN 

GOSUB 3000: NEXTD 

GOSUB 4000 

END 


REM .....eListing 7. | 

PI=3.142:P2=2¥PI:E=15:MF=2=100/ (PI¥2.5):Fiel 

XC=80: YC2=48: XM=.44: YM=.35 

HT=3O#PI/180: VT=63¥P1I/180:C12-120:C22120 

FOR ZG=C1 TO C2 STEP E 

FOR xG=Ci TO C2 STEP E 
XeXG?ZeZG:L=SAR(Z¥Z+X¥X) SLeL/MF: Y2COS(L)*¥25:GOSUB S30 
NEXT XG:NEXT ZG 

Fiz? 

FOR XG=Ci TO C2 STEP E 

FOR ZG=C1 TO C2 STEP E 

X=XG3 2826: L*SQR (Z¥Z+X¥X) SL2L/MF:Y2COS(L) #25: GOSUB 530 
NEXT ZG: NEXTXG 

GOSUB 4000: END 

IF 2G<0 THEN V=VT:H=-HT!:GOTOS50 

Ve-VTSHEHT 

L=SQR (Z¥Z+Y*Y) :Z@ABS(Z):IF Z=OTHENZ=.001 
AzATN(Y/Z)4+V3 Y2SIN(A) €L 

L=SQR (Z¥Z+X¥X) SIF X#O0 THEN A#®PI/2:GOTOS9IO 
AmATN(Z/X):IF ACO THEN AxAtPI 

AzA+H! X2COS (A) ¥L 

X2m INT CX#XM+XC) SY2BINT (YHXM+YC) 

IF Fiz! AND XG#C1 THEN X12#xX2:Y12Y2 

IF Fi=2 AND Z2G=2C1i THEN X1#=x2:Y1=Y2 

GOSUB 3000: X1=X2: Y1=Y2: RETURN 


ON 


For this plot- For this plot- 
GOSUB4000 GOSUB5000 


OS65U SINGLE-DISK COPIER 
by Leo Jankowskt 


Lines 80 to 250 are based on a listing of D. Stevenson's; from the March 
NL of the Tristate U.G. Lines 340 to 480 come from OSI TI1017 - 10.14.81, 
found in my OS65U manual. The rest is mine! The program copies blocks of 
6*3584 bytes at a time, assuming that there is 48K of RAM, 


NB = # of bytes to copy. 
RA = first RAM address of Copy Buffer, 


il 
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It is necessary to first INIT the disk and copy Track Zero with the 


system 


Copy Program, Edit this Copy Program by inserting the lines: 


1695 PRINT: INPUT" Insert MASTER disk '";X$ 
1865 PRINT: INPUT" Insert DESTINATION disk ";xX$ 


The two line numbers above may have to be amended for your Copy Program, 


If the Copy Program can be stopped in this way for single disk copying, 
then why not carry on and copy the whole disk? Because the OS65U Copy 
Program will only copy 3584 bytes at a time, My program copies upto 21504 
bytes at a time, 


10 
20 
30 
40 
30 
640 
70 
10) 
20 
100 
1190 
120 
130 
140 
150 
160 
170 
180 
170 
£00 
210 
220 
250 
240 
250 
260 
2°09 
280 
290 
300 
310 
320 
3350 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 


REM OS465SU SINGLE DISK COPIER BY - LZJ 
FORKX=1TO32: PRINT: NEXT: FORX=1TOQ40:PRINTTAB(10)"-"35 7>NEXT? PRINT 
POKE2888,0:PRINTTAB(10) ":SINGLE DISK DRIVE COPIER for 48K RAM :" 
FORX=1TO40:PRINTTAB(10) "-" °- NEXT? FORX=1TO4:PRINT:NEXT 
POKEL32, 2535: POKEIS33, 107: CLEAR: RA=108¥256:NB=6¥3584: CB=9889 > P=256 
PRINTTAB(S) "Use COPIER utility to INIT & to copy TRACK O." 
DVS="A" 2 FORX=1TO?: PRINT: NEXT 
PRINT"You can copy between any TWO memory limits, (@xcept TRACK QO) 
PRINT: PRINT"They will be rounded to the next page." 

PRINT: INPUT"Start address "3;DA:PRINT 

IFDAC 3384 THENDA=3584 

DA=INT(DA/P) ¥P: TR=INT (DA/3584) 

PRINT"That rounds to "DA" (Track "TR", Page” (DA-TR¥3534) /P")" 
PRINT: INPUT"Is this OK (Y/N) "SAS 

TFAS="ABORT”"THENPRINT: PRINT”"ABORTED” : GOTO470 

IFLEFTS(AS, 1)<¢>3"¥"THEN1IOO 

PRINT: INPUT"End Address (plus 1) "SEN 

TFEN?}2°73S°68THEN EN=275968 

TFEN< > (EN/P) #PTHENEN=L+tINT (CEN/P) ¥P 

TR=INT (CEN/ 3584) 

PRINTOPRINT"That rounds to "EN" (Track "TR", Page” (EN-TRESS84) /P")" 
PRINT: INPUT"Is this OK CY / PD "3 AS 
IFAS="ABORT"THENPRINT: PRINT" ABORTED" : GOTO470 

IFLEFTS (AS, 1)<¢3"Y"THEN1L?79O 

IF DA=>ENTHENFORX=1TOSO:PRINT: NEXT: GOTOLOO 

GOSUBS40 

TFEN-DA< NBTHENNB=EN-DA , 

PRINT: INPUT"Insert MASTER disk, hit <RETURN> ";@$:RW=0: GOSUBSS0 
PRINTS INPUT"Insert COPY disk, hit <RETURN> "3Q@8: RW=1: GOSUB390 
PRINT: PRINT"Copied: "DA"->"DAtNB-1: PRINT: PRINT 

DA=DA+NB: IFDA=ENTHENPRINT: PRINT"COPY COMPLETED! ":GOTO470 
GOTOQ270 


POKES?78, 192: POKES779, 346: POKE9432, 243: POKES433, 40 
POKES435, 2352: POKE?436, 40 

POKECBt?, RA-INT (CRA/P)¥P:POKECBt&S, INT (RA/P) 

RE TLURN 


POKECB+tS,NB-INT(NB/P) ¥P: POKECBt6, INT(NB/P) 


DH=INT (DA/16777216) :RM=DA-DH¥16777216 
DM=INT (RM/65536) -RM=RM-DM¥65536 
DL=INT(RM/P) > RM=RM-DL¥EP 


POKECB+1,RM:POKECB+2, DL: POKECB+3, DM: POKECB+4, DH 
DEV DVS:ER=USR (RW) 
TFER=OTHENRETURN 
PRINT:PRINT"Error "S3ER}" at Address "3DA 
POKE8778, 208: POKES779, 16 
POKE132,0:POKE133,192 
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